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Instruction decoder 16-Sep-1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 1 
18-88-1382 00:28:43 DISKSVMSMASTER: PATCH, SRCJPATMAC.B32:1> (1) 
3 1 001 ZTITLE ‘Instruction decoder' H 
; § One MODULE PATMAC ; 
: Z i it af ZVARIANT EQL 1 : 
; 5 Bab? “FI ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), $ 
: 5 8503 0 IDENT = 'V04-000') = | : 
3 8 0008 1 BEGIN 3 
; 9 0009 1 3 
3 10 0010 1 !+4+ ; 
3 11 0011 1! : 
g \ bo1§ i , Seenenenrenararaenrareraceeneereerenerereterertesetennnntetntnenteneresenete 3 
HY '® *® P 
; 14 014 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * F 
; 15 0015 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * é 
$ 19 Bat8 : i: ALL RIGHTS RESERVED. * J 
; ! * : 
3 18 0018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 5 
3 19 0019 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * § 
; 20 0020 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 3 
; 21 0021 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
3 $6 pes 1 !® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * é 
4 $7 oes? : * TRANSFERRED. * ’ 
; '® * 3 
; $2 0025 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * é 
; 6 BOSS 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
4 4 8656 : :* CORPORATION. ® : 
Ps :* e F 
2 $3 S94 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
$ Ht Boao : < SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * $ 
Py . a 5 
3 3 tT) 1 Ie ® 
M4 tz B07 : , HeoeeconenenenenseeouernenenenenTeeneETeseNeHenesteneaseserarenetsenenentets D4 
; 35 0035 1! FACILITY: PATCH : 
3 6 0036 1 3 
3 37 0037 1! 3 
: % sit ! FUNCTIONAL DESCRIPTION: VAX INSTRUCTION DECODER. : 
: 40 0040 1 | Version: v0218 ; 
; (41 0041 1! 3 
; 42 0042 1 ! Author: KEVIN PAMMETT, 2-MAR-77: Version 00 : 
3 43 0045 1! 3 
3 44 044 1 ! Modified by: 3 
: 45 045 1! $ 
5 46 0046 1! v0218 CNHOO13 Chris Hume 27-Aug-1979 13:30 3 
: «647 047 1! Added double byte oP ode support. Changed use of PATSCONV_R_50 : 
; $8 Bee ! to the RTL routine RSOASC. : 
: 50 050 1 | v0217 _ CNHOO08 Chris Hume 28-Jun-1979 14:00 | : 
. ae ie Fix CASE replacement bug ne gi allow relocation of these : 
3 26 $036 2 3 instructions. (PATMAI.632 VO 23 PATACT.B32 Vv0124, : 
: 33 093 ! PATEXA.B32 VO120, PATMSG-MDL VO202) | : 
; 38 55 1 | v0216 KDMO011 KATHLEEN D. MORSE _ 27-NOV-1978 10:25 | : 
3 29 Bne$ ! Special case BR_LG in the OP_BR_TYPE field. : 
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Instruction decoder 


! Revision history: 


' 

NO DATE 

: cali — a 

i 00 20-0CT-77 
i 01 1-0CT-77 
i 02 12-dEC-77 
i Q3 g8-DEC=77 
i 04  5=JAN-78 
i 

i 

i 

i 

i 

! 

i 

' 

i 05 26-JAN-78 
06 31-JAN-78 
i 

i 

1 

i 

i 07 17-MAR-78 
i 

1 

i 

' 

i 08  24-MAR-78 
1 09 O7-APR-78 
i 10 25-APR-78 
: 11 28-APR-78 
12 18-MAY-78 
ie 13-JUN-78 
i: 14 21-JUN-78 
i 

' 

! 

i 

1 15  28-JUN-78 
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REPLACE PATSOUT_VALU 
ADD CODE TO SP 


EB, CHK_ASD_TBL. 
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XSBTTL "Module declarations’ 
TABLE OF CONTENTS 


FORWARD ROUTINE 
PATSINS DECODE, 


DISPLACEMENT, 
BRA p 


LIBRARY ‘SYSSLIBRARY:STARLET.L32'; 
REQUIRE 'SRC$:PATPCT.REQ'; 


REQUIRE ‘SRC$:PREFI ; 
REQUIRE ‘SRC$:PATPRE.REQ'; 


EXTERNAL ROUTINE 
PATSGET_VALUE : NOVALUE, 
PATSMAP"ADDR : NOVALUE, 


50A 
PAT$FAQ_PUT : NOVALUE, 
PATSOUT_NUM_VAL : NOVALUE, 


PATSOUT-SYM_VAL_: NOVALUE, 
PATSOUT~PUT~: NOVALUE; 


EXTERNAL 
PAT$GB_OPIRFO : OPCODE TBL 


=< 
. 
» 
mn 
o 
. 


PATSCP_OUT STR : REF VECTORC BYTEI, 
PAT$GB-MOD_PTR : REF VECTORC, BYTE), 


PATSGL_BUF SIZ, 
PATSGL_LAST_VAL; 


18-Sep-19 
-seo- 
10=880-198 


X-11 Bliss-32 v4 
SKSVMSMASTER: CPATCH 


Decode an instruction 
Print out an operand reference 

Extract displacements from instructions | 
Decide and handle branch type addressing 
Decide what context this instruction is 
Print a reatecer reference 

Searches ASD table for specific PC 


Literals and macros related to opcodes 
Literals needed to call system services 
Widely-used standard Literals 


Error codes 
Structure macros 
ASD structure definition 


Gets value from image byte stream 
Maps an image address 

Convert from RADS 

Formatted 1/0 to terminal 

Output values as numbers 

Output values as numerics or symbols 
Flush the output buffer 


Points to current output ouffer 


Mode data structure pointer 

Holds character count of output buffer 
Branch instructions overwrite this so that 
the user can ‘EX \'' to trace thru a branch 


vw 
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ruction decoder tbese -1984 00:46: VAX-11 Bliss-32 V4.0-742 Pa 4) 
le declarations 1 ~3007 138% 90:48:43 DISKSVMSMASTER: CPATCH. SRCIPATMAC.B32:1> (3). 


es 


ns 
Mod 


' 
Literals used only in this module 


LITERAL | 


t 
u 
1193 1 
ee | 
11 1 
1199 1 
1198 #1 ROUND BRACKETS = g. ! These are all flag parameters to 
1199 1 SQUARE BRACKETS = 2, ! the routine ‘PUT OREG’. 
! 9 : NO_BRACKETS = 1; 
1 8 1 MACRO 
1205 1 PUTC(C) = ! Put 1 char into the output buffer 
1 Be 1 BEGIN 
1205 1 (,PATSCP_OUT_STR)<0,8> = C; 
1206 1 PATSCP_ODT_STR = .PATSCP_OUT_STR + 1; 
1207 1 PATSGL_BUF_SIZ = .PAT$GL_BUF_SIZ + 1; 
1208 : END %; 
1511 1 1 OWN STORAGE 
1212 1 i= 
Hee 
1214 (1 CASE_FLAG, ! Flag to special-case CASE instructions 
1215 1 MAP_FLAG; ! Flag whether or not to map the stream addr 


8 
vOu-000 PATSING DECODE © Instructions ==> ASCII 1$-$0-198 99:38:9F | DEEKSUmeMASTERscPATCH. SacIPATMAC.B3209%" (43 
RSBTTL 'PATSINS DECODE = Instructions ==> ASCII’ 
GLOBAL ROUTINE PATSINS_DECODE( STREAM_PNTR, OUTPUT_BUFFER, INS_PC, ASM_DIR_TBL, CASE_TBL) = 
0 
FUNCTIONAL DESCRIPTION: 
This routine is the entry point for this module. 


—OODONAOUE 


This routine examines a byte stream that it is passed a pointer to, and 
tries to output what instructions this corresponds to symbolically. 


i CALLING SEQUENCE: 

PATSINS_DECODE (); 

i INPUTS: 

STREAM_PNTR - A byte pointer to the supposed instruction 
stream (unmapped address or buffer address). 


OUTPUI_BUFFER = This is a pointer to the beginning of the 
current output buffer. 


OONOW 


wn 


DEDEDE IODIDE ID act st st st st ek kk kk kk hh th tt et 
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ROUTINE VALUE: 
This routine returns a pointer to the beginning of the next instruction. 


INS_PC - PC for which instruction is encoded 

7 ASM_DIR_TBL - Address of assembler directive table descriptor 
8 CASE_TeC - TRUE => Print CASE dispatch tables 
; : IMPLICIT INPUTS: 
¢ 24 PAT$SGB_OPINFO = Data vector that contains the instruction 

24 mneonics and related information. 

24 PATSCP_OUT_STR = Points into current output buffer. 

st PATSGL_BUF_SIZ = Holds character count in output buffer. 

¢ OUTPUTS: 

: none. 
25 IMPLICIT OUTPUTS: 
none. 


ae ue Ht et 


SIDE EFFECTS: 


The current output buffer pointer is incremented, the character 
representation of the instruction having been stuffed into the buffer. 
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60 In case there is a need to differentiate some other reasons for 
e returning, the returned values are actually macros: 

v4 DETECTED: RETURNED: 

65 “UNKNOWN INSTRUCTION INS_UNKNOWN 

6 “RESERVED INSTRUCTION INS_RESERVED 

° “CAN'T READ INSTRUCTION INS_UNREADABLE 

% 

71 
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PATMA Instruction decoder 16-Sep-1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 6) 
yOu~000 PATSINS. DECODE = Instructions ==> ASCII 1 ~30 7} 382 99:28:45 DISKSVMSMASTER:CPATCH.SRCIPATMAC.B32:1> (4) 
; ! ye ] } The count of the output buffer is also incremented. 

; 1275 1 

; ¢ : 16 BEGIN 

; 1 4 MACRO ! Local macros -- see ‘routine value’ above 
: 127 INS_UNREADABLE = 0 i, 

3 8 1280 INS_UNKNOWN = i, 

; i ! § INS_RESERVED = 0 2; 

: 261 1 ‘ MAP 

5 4g 1284 INS_PC : REF VECTORE oY ! Effect a REF LONGWORD, so can update to ne 
: gs 1289 STREAM_PNTR : REF VECTORC, BYTE); 

: 265 1 Ha LOCAL 

3 “3 1288 ASD_TBL_PTR: REF BLOCKLE arth? ' Points to the ASD entry matching PC 

; = 1289 STREAM PTR: REF BLOCKL,BYTEI, i Points to the unmapped instr stream 

; 248 1290 MAP_STREAM_PTR : REF VECTORC.BYTE), ! Points to the mapped instr stream 

3; 249 1291 ISE- ADDR, ' Address o 

: 250 1 3 OPCODE, ' INstruction opcode 

3 ol 129 OPRNDS; ! Number of operands for instruction 

i $28 1598 5 14 

: 54 129 i Determine if the instruction stream is at the PC it was encoded for or if 

3 55 129 ! it is in a buffer. Then set a MAP_FLAG indicating whether or not to map 

5 28 : 38 STREAM_PTR in order to access the Byte stream. 

: 28 1366 i (-INS_PCLO] EQLA .STREAM_PNTR) 
; 60 130¢ <a MAP_FLAG = TRUE 

F 6¢ 1304 MAP_FLAG = FALSE; 

a on ere 

: 265 1309 i Use an OWN copy of the formal, STREAM_PNTR, because the compiler does not 

3 $08 1308 do this automatically, and because this module writes into this variable. 

; 268 1310 2 STREAM_PTR = .STREAM_PNTR; 

; $9? 131) If .MAP_FLAG ! Is instruction at PC? 

: 271 1318 ees PATSMAP_ADDR(.STREAM_PTR, MAP_STREAM_PTR, ISE_ADDR) ! Yes, get mapped address 

; $78 1315 MAP_STREAM_PTR = .STREAM_PNTR; ! No, use buffer address 

foe eee 

; 76 1318 Set up to special-case CASE instructions. 

: 278 1320 2 CASE_FLAG = 0; 

; ho } ! ‘e+ 

> 281 1 g i Check if the PC to be output is known to contain an assembler directive. 

; 28 1324 ! If so, then CHK_ASD_TBL finds the appropriate ‘‘OPCODE’’ to offset into the 

; 28 13 5 } OPINFO table and also the pointer into the ASD table. 

: BS : § iF COPCODE = CHK_ASD_TBL(.INS_PCCOJ], ASD_TBL_PTR, .ASM_DIR_TBL)) EQL FALSE) 

; Hg 135 ‘ BEGIN 


PATSFAO_PUT( UPLIT( ZASCIC ' * ) ); 


'e¢ 
: Check if this is a case instruction. 


iF _(.OPCODE EQL OP_CASEB) OR (.OPCODE EQL OP_CASEW) OR (.OPCODE EQL OP_CASEL) 
CASE_FLAG = -1; 


'e+ 
: Loop, encoding how each operand is referenced. 


iF (COPRNDS = .PATSGB_OPINFOL.OPCODE, OP_NUMOPS}) EQL ASM_DIR_OP) 


OPRNDS = .ASD_TBL_PTRCASDS$B_NUM_OPRND); 
INCR I FROM 1 TO .OPRNDS 
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PATMA Instruction decoder 18-50 -1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 7 

y04~050 PATSINS, DECODE - Instructions ==> ASCII 1 =360 138 99:68:43 DISKSVMSMASTER: CPATCH, SRCJPATMAC.B32: 1° (4) 

; 8 1 lee ; 
; 9 1 ? : The instruction is not an assembler directive. Therefore, pick up : 
; 290 1 § ! the opcode and check it for validity. Then increment the instruction ; 
: 291 1 ! pointers past the opcoge. ‘ 
; 2 1334 ! NOTE: A MAPPED ADDRESS MAY BE DOTTED ONLY IF IT IS DOTTED TO ACQUIRE > 
; a 1335 ! ONE AND ONLY ONE BYTE. ; 
: 294 1 $ l<- : 
; 295 1 ; 
; 36 § OPCODE = .MAP_STREAM_PTRLO]; : 
; 298 1340 IF .OPCODE EQL %xX'FD' ; 
; 999 1341 THEN : 
: 500 1 4g 4 ' Check to see if 2 byte OPcode. ; 
; 301 1343 4 OPCODE = .MAP_STREAM_PTR([1]°8 + .OPCODE; ! It is. Get the next byte of OPcode. : 
:; 30 1344 4 PTR = .STREAM_PTR + 1; ; 
; 30 1345 4 INS_PCCOJ = .INS_PCCO) + 1; : 
; 304 1346 3 $ 
; 305 1347 '++ ; 
; 306 1348 ! Make sure that this is a recognized opcode, i.e., the number of expected ° 
; 308 1302 : operands is known. ; 
; 309 1351 4 IF( .PATSGB_OPINFOL .OPCODE, OP_NUMOPS] EQL NOT_AN_OP ) : 
: st 1388 Prin te 
3 a5 1328 The opcode is reserved, so not enough is known about it to go any further. ; 
: 14 1328 RETURNCINS_RESERVED) ; : 
s 3515 135 : 
; 316 1358 ; 
» Sir 1359 INS_PCCO] = .INS_PCCO) + 1; ; 
; 318 1360 END; : 
; #319 1361 3 
s 320 1206 '4+ : 
; 321 136 : Output the character sequence which corresponds to the opcode. ; 
$$ 1364 ! Also put out two spaces since some opcodes take up the full OP_CH_SIZE 3 
3 $7 1302 field printed, above. : 
: $3 1367 2 RSOASC( ZREF(OP_CH_SIZE), PAT$GB_OPINFOL .OPCODE, OP_NAMEJ, .PATSCP_OUT_STR ); : 
; $$ 1368 PATSCP_OUT_STR = .PATSCP_OUT_STR™ + OP_CH_SIZE; : 
3 sf : ; PATSGL_BUF_SIZ = .PATSGL_BUF_SIZ + OP_CH_SIZE; : 
: 380 1393 
; 1 1 § : 
; 1374 3 
; ez 1375 : 
: 1376 : 
5 5 : 7 : 
1308 
3 8 1380 3 
3 ' 1 : 
3 1 5 3 
3 1384 : 
: 1385 : 
; 1386 : 
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STREAM PTR = .STREAM PTR + 1; 
| 
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PATMA Instruction decoder 16-Sep-1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 8 
y04~050 PATSINS DECODE = Instructions ==> ASCII 1ergeP-}38t 93:88:93 = We wGmaStencceatoN SRCIPATMAC.B3204%" (as 
45 dO 
4, BEGIN 
tf A aca tha = INS_OPERAND( .STREAM_PTR, .1, .OPCODE, INS_PCCO] )) EQL 0 ) 
49 RETURN(CINS_UNREADABLE) ; ! Decoding failure - probably due to accessa 
0 IF (.1 NEQ 0) AND 7.1 LSS .OPRNDS) 
1 THEN 
¢ PUTC(',"); 
5 END 
54 
55 
2$ 14+ 
5 ! CASE instructions are special-cased as they do not follow the syntax of 
58 ! other instructions, namely an opcode followed by a fixed number of operands. 
59 i They are followed by N+1 words. (offsets), where N is the Last operand of the 
60 ! instruction. Therefore this case can only be handled if the operand was 
2 ! given as a literal. If this is TRUE, the offsets are printed. 
8 IF .CASE_TBL 
64 THEN 
65 BEGIN 
LOCAL 


CASE_OFFSET : SIGNED WORD; ! Buffer to hold offsets 
IF (.CASE_FLAG GTR 0) 
THEN 


l+4 

The flag contains N+1. There are N+1 offsets to print. 

iNCR I FROM 1 TO .CASE_FLAG 

a 

i Loop, getting each offset and printing one offset per Line. 

Update the instruction-stream pointer after each offset. 

if .MAP_FLAG ! Is instruction at PC? 

ne PATSGET_VALUE (.STREAM_PTR, A_WORD, CASE_OFFSET) ! Yes, map address 
CASE_OFFSET = .STREAM_PTRCO,0,16,1); ! No, take offset from buffer 

PATSOUT_PUT(. OUTPUT BUFFER); 

PATSCP_OUT_STR = .OUTPUT_BUFFER + 1; 

PATSGL_BUF SIZ = 0; 

PATSFAO_PUT(UPLIT (RASCIC "Hit *)); 

PATSOUT-SYM_VAL(.INS_PCCO] +”.CASE_OFFSET, LONG_LENGTH, NO_OVERRIDE); 

STREAM_PTR = .STREAM_PTR + A_WORD; 


ND; 
INs pct} = .INS_PCCO] + A_WORD*.CASE_FLAG ! Advance over the table 
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lee 
: Return a pointer to the beginning of the next instruction. 


RETURN(.STREAM_PTR); 
END; 
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PATMA Instruction decoder Sep-1984 VAX-11 Bliss-32 V4.0-74 
v04-0 PATSINS_DECODE =~ Instructions ==> ASCII 1228 Sep 5-19 38 99: 23: $3 DISK $VmSM TER: CPATCH. SRCIPATMAC. B32" 79 °uW 
TITLE ree gretrust ten decoder 
-IDENT \vV04-000\ 
-PSECT _PATSPLIT,NOWRT,NOEXE,0 
0 02 00000 P.AAA: .ASCII <2>\ \<0> 3 
00 00 00 SF A g? 5 64 $600 4 P.AAB: .ASCII SBA! 1 _\<0><0><0> : 


.PSECT _PATSOWN,NOEXE,2 
00000 CASE_FLAG: 
00004 MAP_FLAG: 


<xunnnn 


“PATSFA 
mw 


*EXTRN PATSo8 Topula PAT$GB_MOD PTR 
"EXTRN PATSOr- “BUF SIZ, PPATSEL. LAST VAL 
“EXTRN PATS$GB-OPINFO1, PATSGB-OPINFO2 


-PSECT _PATSCODE,NOWRT,2 


OFFC 00000 ENTRY PATSINS DECODE, Save R2,R3,R4,R5,R6,R7,R8,- ; 1217 
58 000000006 EF 9 00002 MOVAB PATSGL_BUF SIZ, R11 : 
5A 000000006 EF 9E 00009 MOVAB PATS$GB-OPINFO2+4, R10 : 
59 000000006 EF 9E 00010 MOVAB PATS$GB-OPINFO1+4. R ; 
38 000000006 EF 9E 00017 MOVAB PATSCP a ; 
57 00000000' EF 9 OO01E MOV MAP_FLAG, R : 
SE 14 C2 000 SUBL #20; SP ; 
54 0c AC DO 00028 MOVL —INS + 1300 
04 AC 64 D1 00 ¢ CMPL = (RG ty? STREAM. PNTR : 
05 12 00030 BNEQ 1$ 3 
67 8 09 898 4 MOVL #1, MAP_FLAG 3: 1302 
é 11 000 BRB 2$° F 
67 D4 00037 1$: CLRL MAP_FLAG : 1304 
56 04 ac dO 88 9 2$: MOVL eTREAH PNTR, STREAM_PTR : 1310 
11 67 £9 000 BLBC —- MAP_FLAG, 3$ : 1311 
04 AE OF 004 PUSHAB ISETADDR > 1313 
OC AE 9F 0004 PUSHAB MAP~STREAM_PTR ; 
8 0D ot PUSHL TR PTR 3 
000000006 EF 03 0048 CALLS #3. PATSMAP_ADDR F 
08 AE 04 ac dO 0081 3$: MOVL STREAM_PNTR, MAP_STREAM_PTR : 1315 
FC «OA? «(4 00056 4$: CLRL —-CASE_FCAG > 1 20 
19 AC DD 00059 PUSHL ASM_DIR_TBL > 1327 
10 AE 9F 0005C PUSHAB ASD"TBL~PTR ; 
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PATMAC Instruction decoder bes ep-1 VAX-11 Bliss-32 V4.0-742 Page 10 
04-0 PATSINS_DECODE - [netructions ==> ASCII 14- Hat 3B2 90: 23: $3 DISKS$VMSMASTER: CPATCH. SRCJPATMAC.B32;1 79 (4) 
4 DD 0005F PUSHL ; 
00000000v EE : FB 00061 CALLS a. CHK_ASD_TBL : 
2 DO 00068 MOVL RO, OPCODE : 
46 12 00068 BNEG 9$ : 
50 08 A p 906 MOVL MAP STREAM PTR, RO : 1338 
52 $ A 00071 MOVZBL (ROY CODE ; 
000000FD BF D1 00074 CMPL PCObES #25 + 1340 
OF 12 00078 NE % ; 
50 01 AO 9A 00070 MOVZBL 1(RO), RO + 1343 
50 50 08 78 00081 SHL 8. rb, RO : 
52 CO 00085 ADDL2 RO, OPCODE : 
56 (06 0088 INCL  STREAM_PTR + 1344 
64 D6 A INCL ) + 1345 
FD soaGF 52 91 008¢ 5$: CMPB = OPCODE, #253 + 1351 
06 13 0009 BEQL : 
50 6942 7E 00092 MOVAQ PATS$GB_OPINFO1+4COPCODE], RO ; 
09 11 00096 BRB 7$ : 
50 52 F8 8F 78 00098 6$ ASHL #8, OPCODE, RO : 
50 6A40 7E 00090 MOVAQ FAT$GB_OPINFO2+4(ROJ, RO : 
FFFFFFFF © 8F 60 04 00 EC 000A1 7$: CMPV = #0, 47 (RO), Hl : | 
03 12 OOOAA BNEQ &8$ : 
0123 31 OOOAC BRW 26$ : 
56 D6 OOOAF 8S INCL § STREAM_PTR + 1358 
64 D6 00081 INCL (R4) + 1359 
68 DD 00083 9$: PUSHL PATS$CP_OUT_STR + 1367 
FD oSF 52 91 00085 CMPB. = OPCODE’ #253 ; 
07 13 00089 BEQL 108 : 
50 FC A942 7E 000BB MOVAQ PATS$GB_OPINFO1LOPCODE], RO ; 
0A 11 000C0 BRB 11$ ; 
50 52 F8 «BF 78 000¢¢ 10$:  ASHL #8 : 
50 FC AAGO 7E 000C MOVAQ PaTsca. POPINFOSROI, RO : 
50 DD 000CC 11$ PUSHL : 
08 AE 06 DO 000¢ MOVL #6, 8(SP) : 
08 AE 9F 000D PUSHAB ; 
000000006 _ EF 03 FB 000D CALLS #3, RSOAS ; 
68 06 CO 000DC ADDL2 #6. PA r$ep _OUT_STR : 1368 
6B 06 C¢O O00DF ADDL2 #6, PATS$GL~BUF~SIZ > 1369 
00000000' EF SF 000E2 PUSHAB P.AAA : 1371 
000000006 EF 01 FB OO0ES CALLS #1, PATSFAO_PUT ; 
0000008F 8F 52 D1 OOOEF CMPL OPCODE, #143 : 1376 
12 13 OFS BEQL ; 
QOOOOOAF BF 52 D1 000F CMPL OPCODE, #175 ; 
09 13 OOOFF BEQL ; 
QO0000CF = BF 52 01 9191 CMPL  OPCODE, #207 : 
4 12 00108 BNEQ 138 : 
FC AT 1 CE 0010A 128: MNEGL CASE FLAG : 1378 
FD «BF 32 9] 00105 13$: CPB aptobe, #253 > 1383 
50 6942 7E 00114 MOVAQ PATSGB_OPINFO1+4COPCODE], RO F 
09 11 00118 BRB : 
50 52 F8 «BF 78 Oui, 14$ ASHL #8, OPCODE, RO : 
5 6A40 7E OO11F MOVAQ PATS$GB_OPINFO2+4(ROJ, RO ; 
55 60 04 99 EE 001 ; 15$: EXTV #0, #47 , OPRNDS : 
FFFFFFFE 8F D1 001 CMPL OPRNDS , f- ; 
08 if 10F BNEG 6 ; 
50 o¢ AE DO 00131 MOVL §§ ASD_TBL_PTR, RO > 1385 
5 8 AO 9A 00135 MOVZBL 8 (RO), OPRNOS ; 


PATMAC Instruction decoder 1 
v04-000 PATSINS_DECODE - Instructions ==> ASCII 1 
3 D4 00139 

6 11 00138 

4 BB 001350 

3 DD 0015F 
6 OD 10 

00000000v gf oe FB 0014 
0 it O14A 

ts 12 00140 

00 9 31 Bie 

5 b 152 

55 53 bt 00136 
8 00138 
00 B68 2C 90 00158 

68 D6 0015F 

98 Dg 00161 
D6 53 55 F3 00163 
63 14 AC €E9 00167 
52 FC A? DO 00168 

55 15 0016F 

55 08 Ac 01 C1 00171 
53 D4 00176 
48 11 00178 
10 67 £9 OOI7A 
10 AE 9F 0017D 
02 DD 00180 
56 DD 00182 
00000000G_ EF 03 FB 00184 
04 11 00188 
10 AE 66 BO 0018D 

08 AC DD 00191 

00000000G_ EF 01 FB 00194 
68 55 DO 00198 

6B D4 0019E 
00000000" EF 9F QO1A0 

00000000G_ EF 01 FB Q01A6 

7E 04 7D OO1AD 
50 18 AE 32 00180 

7E 64 50 C1 001B4 
00000000G_ EF 03 FB 00188 

56 02 CO 001BF 
B4 53 52 F3 001C2 
50 FC A? DO 001C6 
74 9440 H 3 BREA 

50 56 D 1CE 

04 001D1 
50 D4 00102 

04 00104 

; Routine Size: 469 bytes, Routine Base: _PATSCODE + 0000 


16$: 


18$: 


19$: 


208: 


3$: 


nm 
uw 
ww 


268: 


ee Ce ee ee 


#44 aPATSCP our. STR 
PATS$CP_ 


0 
CASE_TBL, 

CASE. “FLAG, R2 

", OUTPUT_BUFFER, R5 
23$ 

MAP_FLAG, 21$ 
CASE_OFFSET 


STREA 
s3 PATSCET VALUE 


(STREAM PTR) CASE_OFFSET 
#1 OUT PUT 
R5, PATSCP_OUT_STR 
PATSGL_ BUF “SIZ 
ui. PATSEAO_ PUT 
CASE. “OEFSET, RO 
RO. -(sp 
# pATsouT SYM_VAL 
#2. STREAM_PTR ~ 

me RO 
a(R4J+CROJ, -(R4) 
STREAM_PTR, RO 
RO 


; VAX-11 Bliss-32 V4.0 
DISKSVMSMASTER: CPATCH. 
9$ 
AM<R2,R4> 
TREAM_PTR 
4, INS_OPERAND 
0, STREAM_PTR 
8$ 
6$ 
9$ 
OPRNDS 
$$ 


11 
* a) 


gx 
1389 | 


dd 9 
PATMA Instruction decoder Jo~sen= 1386 00:46:68 VAX-11 Bliss-32 V4.0-742 Page 12 
v04-000 INS_OPERAND = Output instruction's operand 14-Sep-1984 12:52: DISKSVMSMASTER:CPATCH.SRCJPATMAC.B32;1 (5) 
; 40 1443 1 ZSBTTL "INS_OPERAND = Output instruction''s eperend’ | : 
; 40 1444 1 ROUTINE INS_OPERAND( STREAM_PTR, INDEX, OPCODE, INS_PC ) = : 
; 404 1445 1 : 
; 405 1268 1 !44 : $ 
: 406 1447 1 ! FUNCTIONAL DESCRIPTION: 3 
; 407 1448 1! 5 
: 408 1449 1! Print out an instruction operand. . 
; 409 1450 1! 3 
: 410 1451 1 =! WARNING: : 
: 411 1026 1 ! 3 
: tig 1455 1! 1) There is code in the ‘DEFERRED’ macro which will cease ; 
3; 41 1454 1! to work when/if the representation of TRUE and FALSE are changed. : 
> 414 1455 1! 2) The local macros, below, check for the indicated addressing $ 
3; 415 1456 1! modes only given that they appear in the code where the : 
; 416 1457 1! do - i.e., the checks take advantage of what is known about $ 
; i 1028 : } which cases already have been eliminated, etc. ; 
: 419 1460 1 ! CALLING SEQUENCE: : 
: 420 1461 1! $ 
: 421 1236 ge INS_OPERAND (STREAM_PTR, INDEX, OPCODE, INS_PC); : 
: 422 1463 1! : 
: 423 1464 1 ! INPUTS: : 
> 424 1465 1! : : : 
; 425 1466 1! STREAM_PTR - A byte pointer to the first byte of the instruction stream F 
: 426 1467 1! which begins this operand. This byte is the dominant : 
; 427 1468 1! mode. This is an unnapped address. : F 
; 428 1469 1! INDEX - Ordinal of which operand to decode. This is needed to ; 
3; 429 1470 1! decide the ‘CONTEXT’ for this operand if PC-relative $ 
; 430 1471 1! addressing mode is used. : 
3 6431 are 7: OPCODE - The opcode of instruction being decoded. F 
: 432 1475 1! (This parameter has already been validated.) : 
; 433 1474 1! INS_PC - PC for which this instruction was encoded ; 
> 434 1475 1! CASE_FLAG - Non zero requests that this be loaded with the length 3 
3 rt #4 ts ' } of the case table (only if specified by a literal). : 
; 437 1478 1°! IMPLICIT INPUTS: 
; 438 1479 1! 
3 439 1480 1! MAP_FLAG = TRUE if STREAM PTR is an unmapped address (the PC), 
3; 440 1481 1! FALSE if STREAM_PTR is a temporary buffer address. 
3 «441 re 1 
: 442 1483 1! 
3: 443 1484 1 ! OUTPUTS: 
: 444 1485 1! ( - 
3 445 1239 1! The current operand is written into the current output buffer in 
; 446 1487 1! machine-Language format. 
3; 447 1488 1! 
: 448 1489 1°! IMPLICIT OUTPUTS: 
: 449 1490 1! 
: 450 1491 1! CASE_FLAG - See INPUTS. 
3 651 1636 1! 
; 452 1493 1 ! ROUTINE VALUE: 
3; 453 1494 1! 
3 6454 1495 1! -The instruction-stream byte pointer, incremented to reflect the number 
; 455 1496 1! of bytes used for this operand. This pointer should point to the 
; 456 1497 1! beginning of either the next instruction, or the next operand, 
3 457 1498 1! depending on how many eperends the current instruction has. 
; 458 1499 1! -If the operand cannot be decoded, FALSE is returned. 
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ruction r 
OPERAND = Output instruction's operand 


on decode 


9 
1$-$e0-1984 00:46:95 
i SIDE EFFECTS: 


1 
' 
! 
If the instruction 
' 
' 


next instruction will be wrong. 


'+4 
! Local macros used to check for the indicated addressing modes. 
See 'WARNING:', above. 


MACRO 
TR(MODE) = (MODE EQL 5) %, 
RED(MODE) = ( MODE LSS 0 AND MODE ) %, 


AUTODEC(MODE) = 
AUTOINC(MODE) = 


INS_PC : REF VECTORC,LONG) 
STREAM_PTR : REF BLOCKL,BYTE); 


STREAM VALUE : BLOCK(4,BYTE], 
NEW _STR_PTR, 


FLA ~ 

DISPO : VECTORC16,BYTE), 
DISP SIZE, 
DOM_OPRN 


DOM_MODE; 


'e¢ 
! Consider the possibility of so-called ‘branch type’ addressin 


ointer is updated incorrectly, then the supposed 
This will cause a completely misleading 
‘instruction’ to be output on the next call to this routine. 


32 V4.0=742 


liss- - Page 1 
MASTER: CPATCH.SRCJPATMAC.B32;1 (5 


Register mode addressing 
Tho a' are 


F = @LONG(RN), 
or any of these + indexing 

The thing which is common to only these 
modes is that they all have the sign 

bit set and are odd! 

See if mode is auto decrement. 
mode is auto increment 

This check depends upon the fact that 
the mode was extracted with sign extension 
and that many of the other possibilities 
were already eliminated. 


Effect a REF LONG, enabling an update of t 


Values from instruction stream 

New stream pointer 

Indicates the type of displacement 
The actual displacement 

The low order longword of DISPO 

The size, in bytes, of a displacement 

Operand extracted from the 

dominant mode byte. It may be Rn, 
Rx, or a Literal (SRM notation). 

The primary addressing mode comes from 
this dominant byte as well. 


first before 


! anythin 


LF (NEW_STR_PTR = BRANCH_TYPE( .STREAM_PTR, .INDEX, .OPCODE, INS_PCLO] )) NEQ 0 ) 
RETURN( .NEW_STR_PTR ); 


te 


else, because otherwise short literals cannot be differentiated 
displacement branches. 


' Success, return new stream pointer 


] 
| 
a, 
PATMAC nstruction decoder 16-Sep-1984 00:46: VAX=-11 Bliss-32 V4.0-742 Page 14 
v04-000 NS_OPERAND = Output instruction's operand 10-860 1982 99:38:47 DISKSVMSMASTER:CPATCH.SRCIPATMAS.B32;1° (5) | 
14 
1 Extract the needed fields from the first byte of the operand specifier. 
6 ! Extract some fields with sign extension because that makes various tests 
? ! more convenient. 
6 iF -MAP_FLAG ! Is the instruction at PC? 
? cise PATSGET_VALUE(.STREAM_PTR, A_BYTE, STREAM_VALUE) ! Yes, map address 
6 STREAM VALUE = laps PTRCO, 0, (A_BYTE * BITS_PER_BYTE), 0]; ! No, get value from buffer 
6 DOM_MODE = .STREAM VALUEC AMODE ]; 
8 DOM_OPRND = .STREAM_VALUEC AREG J; 


le4 
Take special action for indexing mode. 


iF ( .DOM_MODE EQL INDEXING_MODE ) 

THEN 

BEGIN 

144 

Handle indexing mode recursively. 


INS_PCCO] = .INS_PCCO) + 1; 
LF Co (STREAM_PTR = INS_OPERAND( STREAM_PTRE NEXT_FIELD(1) J, .INDEX, .OPCODE, INS_PCCO] )) Eat 0 ) 


RETURN(FALSE); ! Read access failure 
PUT _REG( .DOM_OPRND, SQUARE_BRACKETS ); 
RETORN( -STREAM_PTR ); 


END 
144 
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'¢ 


4 

4 : Simple modes are easier: 

3 Le ret see if there will be a Literal or displacement in the operand refererce. 

2 IF( (STREAM_PTR = DISPLACEMENT( .STREAM_PTR, FLAG, DISPO, DISP_SIZE, .INDEX, .OPCODE, INS_PCCO] )) EQ. 0 ) 
5 RETURN(FALSE); ! Read access failure 

DISPL = .DISPO< 0, MINU( -DISP_SIZE, A_LONGWORD) * BITS_PER_BYTE, 1>; 

3 


! Begin ee for the oggressing modes which begin with spec to} characters 
ee have to be printed first. An attempt is made to handle different cases 


60 | 
6) irst. 
8 if (DEFERRED(.DOM_MODE)) 
64 THE 
65 PUTC('a@") 
66 ELSE 
6 IF (AUTODEC (.DOM_MODE)) 
PUTC('="); 


lee 
! Next consider displacements or literals. Whether or not this is the case 
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9 
on decoder ibs -1984 00:46: VAX=-11 Bliss-32 V4 
ND = Output instruction's operand 1228681 382 99:85:49 R 


has already been determined in the call to ‘DISPLACEMENT’, above. 
if (.FLAG) 

THEN 

BEGIN 

144 


-——- Px 


! There is a literal, so print it. The flag value returned by routine 
: DISPLACEMENT distinguishes when there should be a '#' as opposed to 
! when the number is actually a displacement off a register. 


if (.FLAG GTR 0) 
THEN 


BEGIN 
IF .DISP_SIZE GTR A_LONGWORD ! sae* Temp 
THEN 7. 
!e4¢ 
Literals bigger than a longword are not yet supported. 
BEGIN 
DISP_SIZE = A_LONGWORD; 
PUTCT'?°); 
END; 
PUTC('A'); 
le 


! Except for @# mode, make .DOM_OPRND NEQ PC_REG so that Later 
; only checking that will also fell us that [FLAG is GTR O. 


iF (NOT DEFERRED (.DOM_MODE)) 
THEN 


DOM_OPRND = PC_REG + 1; 
(CASE _FCAG NEQ 0) AND (.INDEX EQL 3) 


CASE_FLAG = .DISPL + 1; 
ELSE 


ree ~ *) ds 
lee 
} Print an indication of the displacement size. 


PATSFAO_PUT( UPLIT( ZASCIC "!AD** ), 1, DISPL_IDC .DISP_SIZE - 1); 


"it the register is the PC, then the absolute address is output. 
uae LSS 0) AND (.DOM_OPRND EQL PC_REG) 
“ 
; Pick up the displacement and make it into an effective address. 
DISP_SIZE = A_LONGWORD; 


DISKSVMSMASTER: CPATCH.SRCIJPATMAC .B32 
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| 
-PSECT _PATSPLIT,NOWRT,NOEXE ,0 | 

00 00 00 SE 44 41 21 04 OQOO0C P.AAC: .ASCII <4>\!AD*\<0><0><0> : | 
-PSECT _PATSOWN,NOEXE ,2 | 

42 00008 DISPL_ID: | 
| 

| 


0009 4 
OOOA : 
0008 é 


~~ 

» 

a 
Se eeees 


-PSECT _PATSCODE ,NOWRT,2 
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PATMAC Instruction decoder Jo~senn 1386 0 48:93 VAX-11 Bliss-32 V4.0-742 Page 16) 
v04-000 INS_OPERAND = Output instruction's operand 14-Sep-1984 12:52: DISKSVMSMASTER:CPATCH.SRCJPATMAC.B32;1 (5) 
; 630 1671 4 DISPL = .DISPL + .INS_PCCO]; ; 
; 631 lore END; : 
; ® ¢ 167 | 3 
; 6 1674 : 
> 634 1675 1 ++ ; ; 
; e 5 1928 ; Output here is the same as non-EFFECTIVE unless the (REG) is PC. ; 
3; 657 1678 4 IF( .DOM_OPRND EQL PC_REG ) | $ 
; 638 1679 THEN F 
; 639 1680 PATSOUT_SYM_VAL( .DISPL, LONG_LENGTH, NO_OVERRIDE ) $ 
: 640 1681 ELSE ; 
; 641 16 ¢ 4 BEGIN ; 
; 64 16 4 '++ ; 
; 7 Het: 2 Literals or real (non-PC) displacement modes. : 
; 645 1686 4 PATSOUT_NUM_VAL(.DISPO, .DISP_SIZE, NO_OVERRIDE, TRUE); : 
; 646 1687 5 IF( .FLAG LSS 0 ) ; 
; 647 1688 4 TH : 
3 648 1689 4 PUT_REG( .DOM_OPRND, ROUND_BRACKETS ); ; 
; 649 1690 ; END; 3 
; 650 1691 END 3 
3 63) 1696 ELSE 3 
; 626 169 '++ : 
; 65 1694 ' No Literal or displacement therefore the operand must be a type of : 
; $28 1937 ' register reference. Sort out the few cases and print them. : 
; 656 1697 : IF (REGISTR(.DOM_MODE)) 3 
s 637 1698 THEN : 
; 658 1699 PUT_REG( .DOM_OPRND, NO_BRACKETS ) 3 
; 659 1700 ELSE : 
; 660 1701 BEGIN F 
: 661 1708 3 PUT_REG( .DOM_OPRND, ROUND_BRACKETS ); 3 
; 666 1703 4 IF( AUTOINC( .OOM_MODE ) ) 5 
; 66 1704 ; T 3 
; 664 1705 PUTC('+"); 3 
; 665 1706 § END; . : 
; 666 1707 RETURN(.STREAM_PTR); ' Return the new byte stream pointer $ 
; 667 1708 1 END; : 


PATMAC tion decoder 
v04-000 


00000000v 
000000006 
53 6E 
52 6E 
7E 04 
8E 
04 
00000000Vv 
04 
55 Oc AE 
00 


: 


7E 


E 
A 


on 


v EF 

G EF 

a. oe 
000006 FF 
C 

10 AC 
54 

8 AC 
4 Ac 
9 

0 

01 

04 AB 
5E 

a fi 
i 

04 

046 BC 
Be 

1¢ 

64 

54 

08 Ac 
01 

04 

50 

6 

oor§ 

54 

08 AC 
10 AE 
1¢ =AE 
1C AE 
04 AC 
of 

2 
OOF 1 

046 =A 
5 

0 

be 
8 

40 8F 


ructio 
OPERAND = Output instruction's operand 


07FC 00000 INS_OPERAND: 


O00 


= 
Sad 
o 


wr 

ad 
ommnz@w 
xOwn 

< 

~ 

@ 


NOS —-9FWOD -VFC 9 OW "MS-DOS Olwuwwgoc»voorommmmn 
= 
wn 
uD 
cw 
n 
= 
rc 


WAS & OPIN OU BO ANPIMO VOOM & ONUITD NU mn OOP 
wv 
“ 
P 
" 


Sesvss —OMONGCO-OMMoO- "VV OMo-o MONCTON 


COOOGOGOOOCOOOCOOOOOCOOOOOOOOOOOSOSOOOCOOOOO OOOO OOOOOOOOOOOOOOO 
SOSSOSCOSOOOSOSOSOSOSOSOSOSOOOOSOOSOSOSOOSOSOSOOOOSOOOOOOOSOOOSOOOOSOOOSOOoOOo 
SOOOSGSOOCOOSOSOSOSSOOOOOSOOOSSSSOSSSOOSOOOSOOSOSOOOOCOOOOOOO OOOO OooOO 


wu 
ad 
oz 
= 
m 
o 


~ o 

oe o 
25-2one0 
- < 

- a 

~ 


owoww PSS YS PS FS OOO O00 000 00 00 SS SS OO AAO II BE ANI WINN | | | OO 
DO PMO om nA MO OO S = 


SOWVOOUNLM £OD—O— Wow 


womno —-VTOMOOo-9cCOWwo 


7OD> 
wo 
as 
@ 
oO 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10 
PUT_REG 

PATSGL_BUF_SIZ, R9 

CASE F 

PAT tp Ouf_STR, R7 

INS.PC, R4 

INDEX, =(SP) 

STREAM_P 


TR 
#4, BRANCH TYPE 
NEG_STR_PTR 


MAP_FLAG, 2$ 
SP 


#1 
STREAM_PTR 
te PATSGET_VALUE 


@STREAM_PTR, STREAM_VALUE 

#4, #4, ~STREAM_VALUE, DOM_MODE 
#0, #4, STREAM~VALUE, DOM~OPRND 
DOM MODE, #4 


(R4) 

R4 

INDEX, -(SP) 

#1, STREAM PTR, =-(SP) 
#4, INS_OPERAND 

RO, STREAM_PTR 


PTR 
SPLACEMENT 
REAM_PTR 


MODBNO NGO DVB 


3 

DISP_SIZE, RO 
RO. Be 

7$ 


#4, RO 
ae. RO 
#0, RO, DISPO, DISPL 


OM_MODE 
$ 


DOM_MODE, 8$ 
#647 aPATSCP_OUT_STR 


16-Sep-1984 00:46:23 VAX=11_BLiss=32_v4.0-742 Page 17 
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9 
PATMA Instruction decoder tbese -1984 246: VAX-11 Bliss-32 V4.0-742 Pa 1 
y04~000 INS_OPERAND = Output instruction's operand 1 =30 71 Re 99:45:83 DISKSVMSMASTER: CPATCH. SRCJPATMAC.B32; 1 a (35 
11 00¢4 BRB té«O3SS ; | 
07 i C6 8$: CMPL DOM MODE. #7 : 1608 
00 87 p 9 CB MOVB hee @PATSCP_OUT_STR : 1610) 
D CF 9S INCL PAT$CP_OUT STR : | 
03 08 RE PB Oboes 108: BBE Feuer yt 822 : 1616 
0094 5 DF BRW 198 ; : | 
08 AF D> DA 11$: TSTL FLAG + 1624) 
33 15 00000 BLEQ ©«-'15$ : 
04 04 AE Di O00DF CMPL ISP. SIZE, #4 : 1627 
¢ 1 9 3 BLEQ 12$ : 
04 A 4 p E MOVL #4, DISP_SIZE t 1633 
00 8B F 009 MOVE #68 aPATECP OUT_STR + 1634 
67 06 QOED INCL  PATSCP T STR : 
69 Bs OEF INCL PATSEL-B $12 ; 
00 B87 23 OOF1 12$:  MOVB hie OUT_STR + 1636 
67 D6 O00F 5 INCL ort éce STR : 
$9 D6 O00F INCL PATSEL SUF 31) ; 
03 $ E9 O00F9 BLBC ~=s_-«aRG,,_-:138 + 1642 
03 53 E8 OOOFC BLBS  DOM_MODE, 14$ : 
52 10 »D O00rF 13$ MOVL #167 DOM OPRND + 1644 
68 DS 00102 14$ TSTL —- CASE_ + 1645 
25 1 90104 BEQL 168 : 
03 08 AC D1 00106 CMPL INDEX, #3 ; 
1F 12 OO10A BNEQ  16$ ; 
&R 01 «AS 9 0010¢ MOVAB 1(R5), CASE_FLAG + 1647 
19 11 00110 BRB 16$ + 1624 | 
50 08 A8 9E 00112 15$:  MOVAB DISPL_ID, RO : 1658) 
04 BESO 9F 00116 PUSHAB aDISP~SIZECROJ ; 
6— D7 OO1IA DECL (SP) ; 
01 DD 0011C PUSHL #1 ; 
00000000" EF 9F OO11E PUSHAB P.AAC : 
000000006 EF 3 FB 00124 CALLS #3, PATSFAO_PUT : 
D4 00128 16S: CLRL sR > 1664 
08 AE DS 00120 TSTL FLAG ; 
OF 18 91 0 BGEG ~=-:*w17$ ; 
53 06 00132 INCL = R3 ; 
OF 52 D1 01 CMPL  DOM_OPRND, #15 : 
07 12 00137 BNEQ ; 
06 =A 04 D0 00139 MOVL 4&4 DISP. size + 1670 
5 64 CO 0013p ADDL2 = (RA) + 1671 
OF 2 D1 00140 178: CMPL OOM tonto #15 : 1678 
— 12 0014 BNEQ 8$~ : 
7E 4 7D 0014 MOVQ #4, -(SP) + 1680 
5 DD 00148 PUSHL DI PL ; | 
000000006 _ EF 95 FB ast CALLS é , PATSOUT_SYM_VAL ; | 
01 DD 00153 18%:  PUSHL > 1686 
E D4 001 CLRL. = (SP) F 
o¢ AE DD 91 PUSHL DISP SIZE ; 
18 AE DD 0015A PUSHL : 
000000006 ef 4 FB 15D CALLS #4, PATSOUT _NUM_VAL ; 
4 3 £9 00164 BLBC—OséR3 : 1687 
E D4 167 CLRL 3s = §P) ; 1689 
Q 1 00169 BRB 208 ; 
05 3 D1 00168 198: CMPL § DOM_MODE, #5 : 1697 


52 
PATMAC Instruct ion decoder =$e0 “19 VAX-11 Bliss-32 V4.0-742 Page 19 P 
v04-000 INS_OPERAND - Output instruction's operand Sep 71382 90: 23: $3 Disk SVMSMASTER: CPATCH.SRCJPATMAC.B32; 1 79 ag Vv 
9 12 1 BNEQ 21$ 
1 DD 001 PUSHL #1 1699 
DD 00172 208: PUSHL p M_OPRND 
6A FB 17 CALLS “PUT_REG 
1 17 BRB 554 
7E D4 00179 218: CLRL = = (SP) 
DO 0017 
6A FB 17 
3 ‘ 1 L 170 
00 8B 8 0 001 MOVB #43, aPAT$CP_OUT_STR 170 
D6 001 INCL  PAT$CP_OUT_STR 
69 06 001 INCL  PATSGL“BUF "SI 
50 04 AC BO 228: MuvL STREAM-PTR; R 1707 
50 D4 00190 238: CLRL = RO 1708 
04 0019 RET 


; Routine Size: 403 bytes, Routine Base: _PATSCODE + 01D5 
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- Handle branch operands 12-8 08- 1 3be 1 48:93 D 
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ZSBITL ‘BRANCH_TYPE = Handle branch oper nds’ 
ROU INDE 
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oe 
zs 
py 
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os 
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742 p 
“SRCIPATMAC.B32:1>— 


s 
TINE BRANCH_TYPE( STREAM_PTR, » OPCODE, INS_PC ) = 


a 


+ 
FUNCTIONAL DESCRIPTION: 
SING BRANCH TYPE 
REFERENCE AND 
WISE RETURN FALSE. 


i DECIDE IF THE CURRENT OPERAND IS U 
i ADDRESSING. IF SO, PRINT OUT THE 
LOOK AFTER ALL THE DETAILS. OTHER 
CALLING SEQUENCE: 

| BRANCH_TYPE (); 

INPUTS: 

STREAM_PTR - AN UNMAPPED POINTER TO THE CURRENT DOMINANT 
i INDEX - WHICH OPERAND (ORDINAL) BEING DECODED. 
i OPCODE “THE OPCODE OF INSTRUCTION BEING DECODED. 
! (This parameter has a\reody been validated.) 
! INS_PC - THE PC FOR WHICH THE INSTRUCTION WAS ENCODED 
} IMPLICIT INPUTS: 

PAT$GB_OPINFC = THE OPCODE INFORMATION TABLE. 

; OUTPUTS: 

i IF THE CURRENT OPERAND IS A REFERENCE USING BRANCH TYPE 

i ADDRESSING, THIS REFERENCE IS PRINTED. OTHERWISE THE 

ROUTINE DOES NO OUTPUT. 

i IMPLICIT OUTPUTS: 

; 

; 

; 

; 

; 

; 

; 

; 

; 

; 

; 

; 

; 

ie 


MAP_FLAG - TRUE _IF STREAM PTR IS EQUAL TO PC, 
FALSE IF STREAM_PTR IS A BUFFER. 


ROUTINE VALUE: 
FALSE - IF THE CURRENT OPERAND IS NOT A BRANCH TYPE 
.e. If the calling routine should continue on 
further to decode the instruction.) 
TRUE = non-zero, THE ADDRESS OF THE NEXT INSTRUCTION IS RETURNED. 
SIDE EFFECTS: 


NONE . 
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STREAM_PTR : REF BLOCKL,BYTE); 
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u 9 
ruction decoder 16-Sep-1984 00:46: VAX-11 Bliss-32 V4.0-742 1 
CH_TYPE = handle branch operands 13-80 8-138e 99:45:43 DISKSVMSMASTER:CPATCH.SRCJPATMAC. 332° 79 © 
N_OPS ! NUMBER OF OPERANDS FOR CURRENT OPCODE 
DISP SIZE, i SIZE OF BRANCH OPERAND, IN BYTES. 
Disp ! THE ACTUAL BRANCH DISPLAC 
STREAM_VALUE; ! VALUE OF BYTE STREAM FOR INSTRUCTION 
'o¢ 
i THERE IS NO POINT IN EVEN CONSIDERING BRANCH TYPE ADDRESSING UNLESS THIS IS 
!' THE LAST OPERAND FOR THIS INSTRUCTION. 
if ((N_OPS = aoe OPINFOC .OPCODE, OP_NUMOPS J) NEQ .INDEX) AND 
(. PAT$GB OP INFO GPCODE, OP _NUMOPS} NEQ ASM_DIR_OP) 
THEN 
RETURN(FALSE); 


i 0 IN THE OP_BR_TYPE FIELD INDICATES OPCODE HAS NO BRANCH TYPE OPERANDS. 
hal tans = .PATSGB_OPINFOC .OPCODE, OP_BR_TYPE J) EQL NO_BR ) 
RETURN(FALSE) 
en EQLU BR_LG) 
DISP_SIZE = A_LONGWORD; 


ELSE 


1 
i SUCCESS == THIS IS A CASE OF BRANCH TYPE ADDRESSING. HANDLE THIS 
i BY EXTRACTING THE FIELD, (WITH SIGN EXTENSION SRM) 
i OUT THE REFERENCE, AND RETURNING A POINTER TO THE NEXT INSTRUCTION. ALSO 
i UPDATE THE VARIABLE WHICH THE USER ACCESSES AS '\" = THE LAST VALUE DISPLAYED. 
i IN THIS CASE IT IS DEFINED AS THE VALUE TO BE THE BRANCH ADDRESS. 
if .MAP_FLAG ! 1S THE INSTRUCTION AT THE PC? 
sa PATSGET_VALUE(.STREAM_PTR, .DISP_SIZE, STREAM_VALUE) ' YES, MAP ADDRESS 
AM VALUE = .STREAM_PTRCO, 0, .DISP_SIZE*BITS_PER_BYTE, 1]; ! NO, GET VALUE FROM BUFFER 

If. PATSeR. _OPINFOL.OPCODE, OP"NUMOPS] NEQ ASM~DIR_OP) 
rape DISPL = .STREAM_VALUE<O,.DISP_SIZE*BITS_PER_BYTE,1> 

PL = _.STREAM VALUE <9 -DISP. SIZE*BITS_PER_BYTE,0>; 
STREAM_PTR = .STREAM PTR + Ise r 
INS Petoy. = ins PCCO) + .D Ize; 
PATSGL_LAST_VAL = .DISPL + ispes PC bs. 


lee 
iP Put out the absolute branch operand. 


iF. -PATSGB_OPINFOL.OPCODE, OP_NUMOPS] NEQ ASM_DIR_OP) 
-DISPL + .INS_PCCOJ; 


DISP 
ATSOUT_SYM VALC: faa LONG_CENGTH, NO_OVERRIDE); 
RE TURNC™. ~STREAM_PTR ); 
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00000 BRANCH. TYPE: 
«WORD 


: $:¢3 VAX-11 Bliss-32_V4.0-742 
252: DISKSVMSMASTER: CPATCH.SRCIJPATMAC. B32; 8 


Save R2,R3,R4,R5,R6,R7 
PAT$GB_OPINFO1+4, R? 
PATSGB- OPINFO2e4. R 
pia. R3 


» #253 
R5 
“hep OPINFO1+4(R3], RO 


Patscs Sp INFO2+4CR02, RO 
a4, 1(RQ2- N_OPS 

" Cops 

§ 


PATSGB_OPINFO1+4CR31, RO 


#-8 R3, RO 
PAT$GB_OPINFO2+4CROJ, RO 
#0, #47 (RO), #2 
19$ 
RS, 7$ 
“ep OPINFO1+7LR3], RO 
PATScp Sp INFO2+7R02, RO - 
4, #45 (RO), DISP_SIZE 
DISP_SIZE, #3 
#4, DISP_SIZE 
MAP FLAG: 10$ 
#°M2R2,SP> 
STREAM. PTR 
#3, PATSGET_VALUE 
a3. DISP SIZE, RO 
SSTREAM PTR, STREAM_VALUE 
4 gp SIZE, R4 


S vell’osnoubacian RO 
#-8, R3, RO 
PATScB_OPINF02<4CRO1, RO 
#0, #47 (RO) 

R4, STREAM_VALUE, DISPL 
#0, R4, STREAM_VALUE, DISPL 
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; Routine Size: 


10 
PATMAC Instruction decoder 1b-Se -1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 24. 
v04-000 PUT_REG = Print a register name 12-88-18 99:88:49 DISKSVMSMASTER: CPATCH.SRCIPATMAC.B32: 1° tat 
; 783 1 ¢ 1 XSBITL 'PUT_REG = Print a register name' 
; 78s } ? ! ROUTINE PUT_LREG( REG, CS_FLAG ) : NOVALUE = 
; 786 1825 1 !+4 
; ree 18 § : FUNCTIONAL DESCRIPTION: 
; 789 1828 1! THIS ROUTINE TAKES ONE PARAMETER WHICH IT ASSUMES IS 
: 790 1829 1! THE NUMBER OF A VAX REGISTER. IT THEN PRINTS OUT 
; ri i 0 1! *R' FOLLOWED BY THE NUMBER (IN DECIMAL), UNLESS THE 
; ee is 1 : } REGISTER NUMBER IS ‘SPECIAL’. THE SPECIAL REGISTERS INCLUDE: 
; 794 1838 1! REGISTER NUMBER SPECIAL NAME 
3 rv 1834 1! 
; 796 1835 1! 1 AP 
; 797 1836 1! 1 FP 
; 798 1837 1! 14 SP 
; 799 1838 1! 15 PC 
; 800 1839 1! 
; 801 1840 1! An additional parameter is used as a flag to indicate 
; 802 1841 1! whether the register reference should be enclosed in 
; 8035 136 1! round/square brackets or not. 
; 804 1843 1! 
; 805 1844 1 ! INPUTS: 
; 806 1845 1! : 
; 807 1846 1! REG - The register number. 
; 808 1847 1! CS_FLAG = A flag to control printing before/after REG. 
; 809 1848 1! 
; 810 1849 1 ! IMPLICIT INPUTS: 
;. $13 1850 1! 
; 812 1851 1! NONE . 
; 813 1836 1! 
> 814 18535 1 ! OUTPUTS: 
> 815 1854 1! 
; 816 1855 1! THE REGISTER REFERENCE IS PRINTED. 
3; 817 1856 1! 
; 818 1857 1°! IMPLICIT OUTPUTS: 
; 819 1858 1! 
; 820 1859 1! NONE . 
; 821 1860 1! 
3. See 1861 1 ! ROUTINE VALUE: 
> 823 1306 1! 
3; 824 18635 1! NOVALUE 
; 825 1864 1! 
; 826 1865 1 ! SIDE EFFECTS: 
; 827 1866 1! 
; 828 1867 1! NONE. 
3 S67 1868 1 !-- 
; 830 1869 1 
; 831 1870 BEGIN 
; B36 1871 
; 83 1376 LOCAL 
3; «834 187 INDEX; 
3 839 1874 
; $39 1875 OWN ; . 
: 837 1876 ENCLOSING_CS : VECTORC4,WORD) ! Enclosing strings for REG. 
; 838 1877 INITIAL( WORD( ZASCIC '(', 
; 839 1878 ZASCIC ')', 


.PSECT _PATSPLIT,NOWRT ,NOEXE,0 


D: .ASCII <4>\R!UB\<0><0><0> : 
E: .ASCII <3>\!AD\ ; 


.PSECT _PATSOWN,NOEXE,2 


00 00 00 42 55 
4b 


28 01 O000C ENCLOSING CS 


D 10 
PATMA Instruction decoder 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 e 25) 
v04-000 PUT_REG = Print a register name 12: Sep- 1984 98: 33: $3 DISK SKSVMNGR TER: CPATCH.SRCIJPATMAC .B32; 79 B 
; 840 187 ZASCIC ‘C' 
: B41 1886 %ASCIC OS), 
: g 1881 PUT_CS VECTORC4, BYTE) ! FAO formatting string. 
; «84 1808 wee tad: oeeae "tAC’ ) 
; 844 188 REGNAMES : VECTORL4,WORD ! SPECIAL REGISTER NAMES. 
; 845 1884 INITIAL( WORD( ‘AP’, ‘FP', "SP", "PC') ); 
: 846 1885 
; 847 1se8 ! 
; 848 1887 ! IF ANY ENCLOSING STRINGS SHOULD BE OUTPUT, THEN CS_FLAG PROVIDED 
; Hed 1356 ! _AN INDEX INTO THE VECTOR OF STRINGS. 
3 85} 1890 iF( CINDEX = .CS_FLAG) NEQ NO_BRACKETS ) 
3 526 1891 THEN 
; 8 914 PATSFAO_PUT( PUT_CS, ENCLOSING_CSC.INDEX] ); 
; 854 189 
: 855 1894 2 i+ | 
3; 856 1895 ! Now print the actual register reference. 
: 857 1998 ¢ len 
; 858 189 IF( .REG LSS AP_REG ) 
; 859 1898 2 THEN 
: B60 1899 2 PATSFAO_PUT( UPLIT ( ZASCIC 'R!UB’ ), .REG ) 
: 861 1900 ELSE 
3 506 1901 2 '++ 
; 86 1308 2 i The reserved registers have special names which 
3 He 1 § i are extracted from the above vector. 
: 866 1905 2 PATSFAO_PUT ( UPLIT ( ZASCIC "!AD* ), 2, REGNAMESC.REG-12] ); 
; 867 1906 2 
; 868 1907 5 '+¢ 
3 ry IDeS Check for any enclosing string, right parentheses or bracket. 
3; 871 1910 g IF( . INDEX NEQ NO_BRACKETS ) 
: 872 1911 2 THEN 
3; 873 at 2 PATSFAO_PUT( PUT_CS, ENCLOSING_CSC.INDEX+1] ); 
; 874 191 1 END; 
: | 
ASCII <1>\C\ : 
29 01 80005 ASCII <1>\)\ 3 
58 4 0001 ASCII <M 3 
50 01 00012 ASCII <1>\J\ 3 
43 41 4 03 Beoik PUT_CS: .ASCII <3>\!AC\ 3 
0 41 00018 REGRAMES: 
«ASCII \AP\ 3 | 
50 ¢ OO1A eASCII \EFP\ : 
9 2 OO01C ASCII \SP\ : 
4 0 OOO1E eASCII \PC\ : 


PATMA Instruction decoder 16-50 Sep-1984 VAX-11 Bliss-32 V4.0-742 6 
v04-0 PUT_REG = Pr nt a register name ~300 138% 99: 28: es DISKSVMSMASTER: CPATCH.SRCJPATMAC. B32- 79 a 
.PSECT _PATSCODE — | 
001C 00000 PUT_REG:.WORD Save R2,R3,R : 1823. 
54 900000006 EF 3 a002 ~~~" MOVAB PATSEAO_ P ‘* 4a : 
53 0000 00" EF : 000 MOVAB : 
52 0 Ac D6 00010 MOVL cS "EERE INDEX + 1890 | 
01 52 D1 00014 CMPL INDEX, #1 : 
09 13 00017 BEQL : 
F8 A342 3F 00019 PUSHAW ENCLOSING_CSCINDEX] + 1892 
53 OD 91D PUSHL : 
64 02 FB 1F CALLS #2, PATS$FAG_PUT : 
0c 04 AC D1 00020 1$: CMPL REG, #12 : 1897 | 
OE 18 00026 BGEQ 2s F 
04 AC DD 00028 PUSHL REG : 1899 
00000000' EF 9F 00028 PUSHAB P.AAD : 
64 : FB 00031 CALLS #2, PATSFAO_PUT : 
13, «11 90034 BRB 3$ : 
50 04 AC DO 00036 2$: MOVL REG, RO + 1905 
EC A340 3F OO03A PUSHAW RE GNAMES-24CROJ : 
02 DD 0003 PUSHL @# : 
00000000" EF 9F 00040 PUSHAB P.AAE : 
64 03 FB 00046 CALLS #3, PATSFAO_PUT : 
01 52 D1 00049 3$: CMPL INDEX, #1 : 1910 
09 13 9004¢ BEQL : 
FA ASGe 3F O04E PUSHAW ENCLOSING_CS+2C INDEX] : 1912 
53 DD 0005 PUSHL : 
64 02 FB 00054 CALLS #2, PATSFAO_PUT : 
04 00057 4$: RET > 1913 


; Routine Size: 88 bytes, Routine Base: _PATSCODE + 047A 


1 


F 10 

PATMAC Instruction decoder 16-Sep-19 VAX-11 Bliss-32 V4.0-742 7 | 

v04-000 DISPLACEMENT = Determine size of operand 14- Sep- 198 99: 25: §3 Disk SVMSMASTER: CPA ATCH.SRCJPATMAC. B32" s ° 

: 876 1914 ZSBTITL ‘DISPLACEMENT = Determine size of pegrend. ; 
: 144 1312 ROUTINE DISPLACEMENT( STREAM_PTR, FLAG. DISPO, PTR_DISP_SIZE, INDEX, OPCODE, INS_PC ) = ‘ 
; 879 1917 + 5 
; tt 1318 "FUNCTIONAL DESCRIPTION: | : 
; abe 1920 i DECIDE IF THERE IS A DISPLACEMENT FOR THE CURRENT 3 
; 88 1921 i OPERAND OF THE CURRENT INSTRUCTION. IF THERE IS, ; 
: «884 19 ¢ i EXTRA ? IT FROM THE INSTRUCTION STREAM AND RETURN AN ; 
; HH ? ? INDICATION OF THE CASE DETECTED. : 
; 887 1925 i CALLING SEQUENCE: ; 
; 888 1926 i ; 
; «889 1927 i DISPLACEMENT (); : 
; 890 1928 i 3 
: 34 1368 INPUTS: : 
; 89 1931 ! STREAM_PTR - POINTER TO THE BEGINNING OF THE CURRENT OPERAND SPECIFIER. é 
s S96 1338 i FLAG - POINTER TO THE RETURN LOCATION FOR ONE OF THE 3 FLAGS 3 
; 895 193 i IF THERE IS A DISPLACEMENT OR LITERAL ASSOCIATED” F 
; 896 1934 ! WITH THIS OPERAND REFERENCE. : 
; 897 1935 i DISPO - A POINTER TO THE dy BUFFER FOR THE ACTUAL | ; 
; 898 1936 i DISPLACEMENT OR LITERA g 
; 899 1937 i PTR_DISP_SIZE - ADDRESS TO CONTAIN RETURNED VALUE OF NUMBER : 
: 900 1938 i OF BYTES ACTUALLY NEEDED FOR THE oie ot fia. | - 
: 901 1939 i This is done strictly for the benefit of F 3 
: 902 1940 i which would fill out ‘output a oe o : 
; 903 1941 i otherwise, giving gyda Re : 
; 904 bg i INDEX - THE on OF THE OPE EING DECODED 3 
; 905 194 i OPCODE - THE OPCODE OF he ni phew wet baad BEING DECODED. : 
; 906 1944 i (This erence er has already been validated.) 3 
; 907 1945 i INS_PC - THE PC FOR ceicn® THE INST UCTION. WAS ENCODED. 3 
: 908 1946 i 3 
: 909 1947 i OUTPUTS: 3 
3; 910 1948 i 3 
s 911 1949 i 1) A VALUE OF -1, 0, OR 1 IS RETURNED VIA THE LONGWO 3 
; 912 1950 ‘ POINT 6 IS RETURNED IF NO DISPLACEMENT IS TO BE : 
; 913 1951 i ASSOCIATED WITH THIS OPERAND REFERENCE. OTHERWISE 1 OR - 3 
: 914 1326 ! IS RETURNED TO SEPARATE THE CASES LISTED BELOW. THIS PROVIDES A WAY ; 
; 915 195 i NT ake BEFORE SOME LITERALS, (E.G. MOVL #01,R0), AND TO INDICATE é 
: 916 1954 1 WHEN "(RN)" AFTER THE DISPLACEMENT. ETC. THIS INFORMATION ; 
3 at 1322 Is RETURNEDS TO PRECLUDE TESTING FOR IT AGAIN. : 
; 919 1957 i 2) if Ene IS A A a al F ITS VALUE IS RETURNED : 
3 350 1958 i TO THE BUFFER POIN spo 8 BY ‘DISPO'. IF THE FLAG WHICH IS 3 
; 921 1959 i os ante (SEE ABOVE) IS HE BUFFER POINTED : 
3; 9 4 1960 i "DISPO' IS UNCHANGED. 3 
: 9 1961 i $ 
: 924 I2S6 i ROUTINE VALUE: 3 
: 3S? 196 ! 3 
: 926 1964 i “THE (NEW) BYTE STREAM POINTER WHICH WILL THEN POINT TO THE é 
é a4 1302 BEGINNING OF THE NEXT INSTRUCTION OR OPERAND REFERENCE. : 
° | e 
; x4 1969 i SIDE EFFECTS: 3 
: 930 1968 i 3 
: 931 1969 i NONE . : 
2 932 1970 ie | Ps 


AM_VALUE = .STREAM_PTRCO, 0 


BEGIN 


3 CASE 1: LITERAL MODE ADDRESSING 
; THE LITERAL IS 


— 
m 
- 
oir 
S> 
x 


; WA 
; IT CAN BE “ustD. FOR THE DISP_SIZ 


lee 
DISPOLO) = 
Fz] 


- STREAM_VALUECSHORT_LITERAL]; 
END 
IF( ,MODE GTR AT_PC_REL_MODE ) 
THEN 

BEGIN 

lee 


ELSE 


SOOOCOSOCCOOCOSCSCOOOCOCOCOOSOSOSOSOSOOOSOOOOOOOOOOOOWOO 


ROPRSPOPOPONOPYNY — Ot OO Ot 


PATSGET_VALUE(.STREAM_PTR, A_BYTE, STREAM_VALUE) : 
A_BYTE * BITS PER_BYTE), 0]; 


YES, MAP ADDRESS 


! NO, GET VALUE FROM BUFFER 


10 
Instruction decoder hese =1984 4 VAX-11 Bliss-32 V4.0-742 
DISPLACEMENT = Determine size of operand 12-808=13Re 99 3§ a DISKSVMSMASTER: CPATCH. SRCIJPATMAC. B32, 79 
. 3 H 1393 BEGIN 
: 935 1398 
: 9 1974 2 MAP 
: 937 1975 INS_PC REF VECTORC,LONG), 
> 938 197% PTR-DISP_SIZE REF VECTORC.LONG). 
: 939 197 DISPO REF VECTOR( BYTE), 
: 940 1978 FLAG REF VECTOR LONG ; 
> 941 1979 STREAM_PTR REF BLOCKL, BYTE); 
; 94 1980 
: 94 1981 2 LOCAL 
: 944 198¢ MAP STREAM PTR : REF BLOCK C,BYTE), ! MAPPED ADDRESS OF BYTE STREAM 
> 945 198 STREAM_VALOE : BLOCK(4,BYT Ted i VALUES FROM BYTE STREAM 
: 946 1984 MODE. i DOMINANT ADDRESSING MODE 
: 947 1985 i FLAG VALUE RETURNED 
: 948 1986 bisP_size: i SIZE, IN BYTES, OF THE DISPLACEMENT 
: 949 1987 
: 950 1988 2 !+¢4 
; 991 89 i ASSUME THERE IS NO DISPLACMENT, BUT THEN CHECK FOR THE CASES: 
: $38 31 1) LITERAL MODE = DOMINANT MODE IS 0, 1, 2, OR 3. 
: 955 1 3 i 2) BYTE, WORD, OR LONGWORD, DISPLACEMENT OR DEFERRED 
; 936 i 3% DISPLACEMENT MODES. 
: 938 % ; 3) MODE 8 WHEN REG IS PC (IE #CONST, INSTEAD OF (PC)+ ) 
; 96¢ 98 ; MODE 9 WHEN REG IS PC (IE @#ADDRESS, INSTEAD OF a(PC)+ ) 
: 2 00 q CASES 1 AND 3 ARE TYPE 1, WHILE CASE 2 IS TYPE -1. 
: $ 0¢ F = 0; 
3 - 0 DISP_ SIZE = 0; 
; 04 2 IF .MAP_FLA ! I$ INSTRUCTION AT PC? 
; 2005 THE 
5 2006 
3 2007 ELSE 
; 2008 STRE e 
3 ‘ 09 LF MODE = .STREAM_VALUEL DSPC_MODE J) LSS" INDEXING MODE ) 
3 $018 
: 4 MUST BE EXTRACTED WITHOUT 
; 5 i MODE BYTE. EXTRACT THIS 
: 6 G TO INDICATE WHICH CASE 
; UE BEING 1 ALSO MEANS THAT 
3 8 ALUE RETURNED. 
: 0 
: 
: i 
7 


° 6 


) 


<v 
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. 
- 
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H 10 
PATMAC Instruction decoder 16-Sep-1984 00:46: VAX-11 Bliss-32 V4.0 
v04-000 DISPLACEMENT = Determine size of operand 12=8e8=1Re 99:68:43 DISKSVMSMASTER: CPATC 
; 990 0 8 ' CASE 2: DISPLACEMENT OR DEFERRED DISPLACEMENT MODE. THERE 
: 991 i ONLY REMAINS TO DECIDE HOW MUCH OF THE BYTE STREAM TO 
; 99 030 i EXTRACT. THIS IS DONE SIMPLY BY LOOKING AT WHAT THE 
; 99 031 i MODE’ FIELD OF THE DOMINANT BYTE IS. TO 
: 994 0 : i IFFERENTIATE HEX AOR B, C OR D, AND E ORF, 
: 995 0 i SO JUST LOOK FOR THE MOST CONVENIENT BITS TO CHECK. 
: 996 4 i START BY ASSUMING BYTE DISPLACEMENT (HEX A OR B), THEN 
: 997 035 i SORT OUT THE OTHER TWO CASES. 
: 338 b35 is of 
> 1000 038 DISP_SIZE = A_BYTE; 
> 1001 039 4 IF ( TSTREAM_VALUEL DOM_MOD_FIELD J] LSS 0 ) 
: 190¢ 40 3 THEN 
: 100 041 DISP_SIZE = (IF (.STREAM_VALUECDOM_MOD_FIELDJ) 
; 1004 $0eg 4 THEN A_LONGWORD ! MODE IS HEX E OR F. 
> 1005 04 ELSE A-WORD); i MODE IS HEX C OR D. 
; 1009 spee ELSE ae 
: 1008 2046 IF ((.STREAM_VALUECOPERAND_VALUE] EQL PC_REG) AND 
> 1009 2047 3 (.MODE EQC PC_REL_MODE OR .MODE EQL AT_PC_REL_MODE)) 
: 1010 048 HEN 
BB 88 oe 
: 1918 $084 i CASE 3: SPECIAL CASE NOTATION FOR PC MODES. 
> 1014 g05¢ i THE ONLY DIFFICULTY IS DECIDING HOW 
: 1015 205 i MUCH OF THE BYTE STREAM TO ‘EAT UP’. 
: 1016 054 i @#ADDRESS ALWAYS HAS LONGWORD CONTEXT, 
: 1017 2055 i WHILE THE CONTEXT OF #CONST DEPENDS ON 
: 1018 2056 : i in THE OPCODE AND THE OPERAND ORDINAL. 
: 1920 2058 4 1F (RODE EQL AT_PC_REL_MODE ) 
; 1992 2060 ; nape DISP_SIZE = A_LONGWORD 
+ 1024 2069 DISP_SIZE = INS_CONTEXT( .INDEX, .OPCODE ); 
3 1052 spor END; 
: 1027 2065 i AT THIS POINT .DISP_SIZE IS THE NUMBER OF BYTES PAST THE MODE BYTE 
> 1028 066 2 | CONSUMED FROM THE INSTRUCTION STREAM, IF ANY. JUST GO AHEAD AND CONSUME THESE 
: 1089 3067 i BYTES, PASS BACK THE DISPLACEMENT, AND RETURN THE NEW INSTRUCTION-STREAM BYTE 
> 1030 068 2 | POINTER. EVEN IF THERE IS NO DISPLACEMENT, AT LEAST THE DOMINANT ADDRESSING 
> 1031 2069 i MODE BYTE WAS CONSUMED. THE NEXT COMMAND INCREMENTS THE STREAM_PTR 
: 1032 970 i ADDRESS BY ONE. 
: 1984 Ore STREAM_PTR = STREAM_PTRINEXT_FIELD(1)); 
; 193? 44 INS_PCTOJ = .INS_PCTOJ + 1; 
: 1039 OFS 5 tes 
; 4 o78 : Pass back the flag now so that F can be re-used as a temporary, below. 
: 1040 O78 FLAGCO) = .F; 
+ 1041 07 IF( .DISP_SIZE NEQ 0 ) 
: 1048 080 2 THEN 
: 104 9 1 BEGIN 
+ 1064 ‘ F = .DISP_SIZE; 
3; 1045 BB 
+ 1046 084 lee 


-742 
H.SRCIJPATMAC .B32 


~o 


<v 


PPPS 


PWN" OOONOULS Wn" OV0O~ 


Se Se Se Se ee ee Se Se Ss ee ee Seas Fees teeses 
— Ss os HS a a os SH os 4 ss 
COOOCCDOCOCOCOOOCOCOCOSoO: 
Ratatats ERR 


50 


51 


00 


OF 


n 
1 
0 
0 
0 
0 
Q 
0 
0 
Q 
0 
0 
0 
1 
1 
1 


st 
SP 
i 

8 
89 
90 
4! 
98 
94 
3 
7 
98 
99 
00 
01 
02 


le 
! Pass back an indication of the number of bytes actually consumed for the 
displacement or Literal for the benefit of FAO output. 


PTR_DIS 
INS~PC ; t 
Ah a STREAM_PTRC NEXT_FIELD 


E 
E 
0 
5 
6 
5 
0 
A 
0 
0 
B 
0 
P) 
0 
4 
5 


6E 


6E 


6E 
1E 


6€ 


n decoder 
NT = Determine size of operand 


PASS BACK THE LITERAL OR DISPLACEMENT. 


SOMOMO ON NNN 9 PON SOMO LO LW SMM La 


SIZE; 
T .OISP_SIZE ) 1); 


003C 00000 DISPLACEMENT: 
. WORD 


oo 


NSYUTVIO@ OPM DOVIWOM DW SINVIOS WLM OYSOVIWOOP 
@w 
@ 


3$: CMPL 


o—9 mM OM Sn 9 9 9 OM SOMO MOV IOMAIOOO 
W909 “OOD om $$ OOD "P—-DWOVT9T OOrmm 
SOOQoQooooooooooooooooooooooooooooo 


SOOSOSOCOCSOOGOOOSOOSOOSOOOOSOOOOOOOOOOOOoOO 


10 
1g-Sen-1984 99:46:35 


! NO GET VALUE FROM BUFFER 


Save R2,R3,R4,R5 
MAP_FLAG, 
PATSGET_VALUE, R4 
#4, SP 


DISP_SIZE 
RAP FLAG. 1$ 


STREAM_PTR 
+e PATSGET_VALUE 
@STREAM_PTR, STREAM VALUE 
#4, #4, STREAM_VALUE, MODE 
MODE, &4 

#0, #6, STREAM_VALUE, R1 
R1, adisPo 
“i. F 
8$ 

MODE, #9 

4$ 

i, F 

#1, ISP SIZE 

ae #2, STREAM_VALUE, #0 
#5, STREAM_VALUE, 6$ 

#2. DISP_SIZE 

#0, #4, STREAM_VALUE, #15 
MODE, #8 


MODE, #9 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CPATCH.SRCIJPATMAC.B32 


NOTE THE SIGN EXTENSION. 
! IS INSTRUCTION AT PC? 
PATSGET_VALUE(.STREAM_PTR, .DISP_SIZE, .DISPO) . YES, MAP ADDRESS 


INCR 1 FROM 0 TO .DISP_SIZE = 1 00 : 
DISPOC.1] = .STREAM_PTRC .1, 0, BITS_PER_BYTE, 0]; 


<u 
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10 
PATMA Instruction decoder 1b-Se -1984 246: VAX=-11 Bliss-32 V4.0-742 Page 31 
104e000 DISPLACEMENT = Determine size of operand baat 90:48:43 DISKSVMSMASTER:CPATCH. SRCIPATMAC.B32:1° (Bs 
1B 1 A BNEQ 8S : 
53 06 ee 5$ MOVL #1, F + 2057 
09 g D of CMPL MODE, #9 + 2058 
is BNEQ : 
52 é og t 6$: MOVL #4, DISP_SIZE + 2060 
7E 14 AC 7D 00079 7$ MOVO ‘INDEX, =(SP) + 2062 
00000000v EF Q FB 7D CALLS g. INS_CONTEXT : 
2 D 84 OVL RO, DISP SIZE ; 
046 AC D 7 8$ INCL  STREAM_PTR : 207 
1¢ D A INCL INS PC + 207 
08 BC D 380 MOVL F, @FLAG 3: 207 
D 1 TSTL Di sP_size : 207 
é 1 093 BEQL =: 128 ; 
53 D 009 MOVL DISP_SIZE, F : 208 
0d 65 £9 00098 BLBC MAP FLAG, 9$ : 208 
0c AC DD 00098 PUSHL  DISPO + 2089 
52 DD 0009 PUSHL  DISP_SIZE F 
04 AC DD OOOA PUSHL STREAM PTR : 
64 03 FB OO0A CALLS #3, PATSGET_VALUE ; 
10 11 OOAg BRB 12$ : 
50 01 CE 000A8 93: MNEGL #1, 1 > 2091 
07 11 000AB BRB 11$ : 
OC BC40 04 BC40 90 GOOD 10$: MOVB  a@STREAM PTRC(IJ, aDISPOC!] + 2092 
FS 50 5¢ F2 000B4 11$:  AOBLSS DISP SIZE, I, 10$ ; 
10 BC 53 (D0 00088 12$: MOVL fF, @PTR DISP’SIZE + 2099 
1C BC 52 ¢O 000BC ADDL2 DISP_SIZE, aINS PC : 2100 
50 § 04 AC €1 000C0 ADDL3 STREAM_PTR, DISP_SIZE, RO + 2101 
04 000C5 RET + 2102 
; Routine Size: 198 bytes, Routine Base: _PATSCODE + 0402 
| 


p=1984 12:39:87 DL SKSVMSMASTERS CPA 


o 


K 10 
16-Se 
14-Se 


an 


-742 P 2 
H.SRCIPATMAC.B32:1> (5 


os 
oc 
“4a 


— 
zs 
vow 
ee ee ce ee a ad ed od oe od = = = = = od SS = ao 


coder 
Determine operand type 
a 


— 
zz 


S_CONTEXT = Determine operand type’ 
S_CONTEXT( INDEX, OPCODE ) = 


THIS ROUTINE DECI 
OPERAND FOR A SPE 
WHETHER A PC-RELA 
REQUIRE A BYTE, W 


i CALLING SEQUENCE: 


DES WHAT CONTEXT APPLIES TO THE GIVEN 
CIFIC OPCODE. IT IS USED TO DETERMINE 
TIVE MODE FOR THIS OPERAND WOULD 

ORD, LONGWORD, OR QUADWORD OPERAND. 


SSSSSSSSSSS SES : 


SRUSALAVSSSSNOAE INO 


BE - eee 6. 
OPCODE =THE OPCODE OF THE INSTRUCTION BEING DECODED. 
(This parameter has already been validated.) 


i IMPLICIT INPUTS: 
None. 

i QUTPUTS: 
NONE . 

i IMPLICIT OUTPUTS: 
NONE . 

i ROUTINE VALUE: 


jolelololololelelolelolololelolololo) 


33333333 
BLSRRAwLS 


oooo 
SOONAUNE WN O ODNAUES UN OOONAYL EWN -OOONOUE Ww 


IF SOME ERROR IS DETECTED, RETURN FALSE. OTHERWISE RETURN 
THE NUMBER OF BYTES FROM THE INSTRUCTION STREAM THAT THE CURRENT 
OPERAND REFERENCE SHOULD CONSUME. THIS NUMBER WILL BE: 


NUMBER OP_CONTEXT NAME FROM OPI MACRO DEFINITION 
OF BYTES VALUE 


Coosn— 


0 
He 
1 4 


THE VALUE, 0 TO 4, STORED IN THE OP_CONTEXT FIELD IS THE POWER OF TWO 
WHICH WILL YIELD THE "NUMBER OF BYTES’ ENTRY, ABOVE. 


i SIDE EFFECTS: 
NONE. 


ee ee ee a a a a a ad at od = 2d = 8 


M—ODOOBNOUS WN -O0en 


RIPIPIPINIPIPDPORIMPYNINIPIMYIDDMNINININIPYINIPYINININININININPINIPINIPUNIPININPIPINOPONOPoNPononononononofnopnoporononny 


ee ee ee ee ee a a ed od od od od od wd 8 dd = od dd 
AAAAAAMAAR BR RR REE BR BWW rononononononononony) 3 2 3 ss QO OOOO 


Be Se Be Se Bs Se Se Se Be Be Se Se Fe Se Fe Se Fe Se Se Ge Fe Ge Fe Ge Ge Ge Fe Ge Ge Ge Se Se Ge Ge Se Ge Se Ge Ge FF Se Fe Se Sse Se Sees Se Se Se See Se Se ee eeas 


WONOUSWN OC OONOUS WN 


i 
E 
a 
R 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
INS_CONTEXT (); 
: INPUTS: 
INDEX = OPERAND IS BEING DECODED. THIS NUMBER 
' 
' 
‘ 
' 
' 
' 
' 
' 
' 
' 
i] 
' 
' 
' 
' 
' 
J 
1 
' 
' 
' 
J 
' 
' 
' 
' 
' 
' 
' 
' 
‘ 
t 
i 
] 
' 
' 
J 


PATMA 
v04-0 


3 
4 
5 
; 
9 
0 
1 
§ 
5 
6 
7? 
8 
9 
0 
1 
5 
4 
5 
6 
7 
8 
9 


7 
—— 


ion decoder 18-50 Haat 99: $$: $3 VAX-11 Bliss-32 V4.0-742 33 

EXT = Betermine operand type 1984 DISKSVMSMASTER: CPATCH. SRCIJPATMAC. B32" r (9) 

BEGIN 

| CHECK FOR 
1) 


zs 
ww 
oO, 
oc 
=POPIPIPUPINIPIPINIWIUMIPRI UMP NOPOPOnRPoPonpnrn ZO 
See 
- “4 
x= 


FINED) 
2) BO el! oe OF OPERANDS FOR OPCODE. 
USE T NUL' ENTRY IN THE ot NFO 
AME VALUE BEING ENCOD ED AS THE 'B NES DO. 
ta olee : ae (BY LOOKING AT THE "Op ee _ FOR 


H_TAK ries” uP MORE BITS IN TRE OPINF 


0 

A v 

ET TO BE 
A 

ECA 


<so 
nao 
= 


MAD—m mm He 


E 
IFFEREN 
iF (.PAT$GB_OPINFOL.OPCODE, 0 
Teo OP Fae 
IF ((.PAT$GB_OPINFO dPcove, OP_NUMOPS] LSS .INDEX) OR 

(INDEX LEQ 0)) ! ERROR 2, SEE ABOVE. 


RETURN(FALSE) ; 


: TABLE 3 
-NUMOPS] EQL NOT_AN_OP) ! ERROR 1, SEE ABOVE. 


THIS JUST HAPPENS TO BE THE POWER OF 2 WHICH ore TO CALCULATE THE 
NUMBER OF BYTES OCCUPIED BY THE CORRESPONDING OPERAND 


RETURN (( 1 * .PATSGB_OPINFOC.OPCODE, OP_CONTEXT(.INDEX)])); 


'+¢ 
; 9 W IT IS JUST A MATTER OF L905 Ins INTO OUR OPINFO TABLE TO REQUIRE 0 THROUGH 
i 


ts a 4 > o_o a a 


SRLS EW 


PROPIPIPIPYPIPINIPINYIPOPINPINPINININININININIPINININININ — et 


Sete Se Ge Ge Se Se Se Se ee Ge Se SF ee SHE Sse Sete Ge Se Se Se Se Se Se See 
ek kk kd ad dd ed 
tk a ad a a 
0000090909 0909 NINN NINN NNO PAA AAAAAOO 
AUF WN" O OONOAOUE ARO OONOuUfS uno I 


001C 00000 INS_CONTEXT: 
WORD 


4 
4 
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4 
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4 
4 
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‘ 
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4 
‘ 
‘ 
‘ 
4 
‘ 
4 
‘ 
4 
‘ 
‘ 
‘ 
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‘ 
4 
‘ 
4 
‘ 
‘ 

' 
4 


: Save R2,R3,R4 > 2104 
54 000000006 EF 9€ 00002 MOVAB PATS$GB_OPINFO1+4, R4 F 
53 000000006 EF 9E 00009 MOVAB PATS$GB-OPINFO2+4, R3 : 
51 08 AC 00 00010 MOVL  OPCODE; R1 > 2172 
52 D4 00014 CLRL oR : 
FD SF 51 91 00016 CMPB eR, #253 : 
08 13 OOO1A BEQL ss ; 
2 06 001C INCL R2 ; 
50 6441 7E Oo1E MOVAQ PAT$GB_OPINFO1+4(R1], RO ; 
09 11 000 BRB 2$ ; 
50 51 F8 ef 78 00 4 1$: ASHL #8, R1, RO ; 
0 6340 7E 00029 MOVAQ PAT$GB_OPINFO2+4(ROJ, RO : 
FFFFFFFF © 8F 60 04 00 E 00 D 2$: CMPV #0, #47 (RO), #1 ; 
40 1 0 BEQL 3 
06 5¢ E 09 BLB R2, 3$ + 2175 
5 644 F 0 B MOVAQ PAT$GB_OPINFO1+4(R1], RO ; 
09 11 0003F BRB : 
50 51 F8 BF 78 9041 3$ ASHL ; 
50 6340 7E 00046 MOVAQ PATScé, ori NFO2+4CR0), RO ; 
04 AC 60 04 90 EC 004A 4$: cMPV es #0, (RO), ; 
6 19 00 BLSS : 
04 AC D) TSTL JNDEX : 2176 
¢! 1 BLEG $ ; 
06 2 €9 0005 BLBC ~=_—«aR,_‘ S$ + 2185 


m 10 
PATMAC Instruction decoder 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 4 
v04-000 INS_CONTEXT = Determine operand type 14- ~tep- 1984 99: 23 $3 DISKSVMSMASTER: CPATCH. SRCJPATMAC. B32, 79 ‘3 
50 6441 fi 5A MOVAG PAT$GB_OPINFO1+4(R1J, RO : 
50 51 FB BF : é 5$: ASHL #8, R1, RO ; 
0 63 3 MOVAQ PAT$GB_OPINFO2+4CROJ, RO : 
52 04 AC 7 69 68: ASHL 3 INDEX, R2 : 
51 : 04 ai 06 EXTZV R2, #4, (RO), R1 : 
0 01 1 i 007 ASHL Ri, #1. RO : 
50 04 00078 7S: CLRL RO : 21 
04 0007A RET ; — 
; Routine Size: 123 bytes, Routine Base: _PATSCODE + 0598 


N 10 
PATMA nstruction decoder 16-Sep-1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 35 F 
v04-0 NS_CONTEXT = Determine operand type 1a-8ep-19 4 99:48:99 DISKSVMSMASTER = LPATCH. SRCJPATMAC.B32: 1° (193 \ 
ROUTINE CHK_ASD_TBL( INS_PC, ASD_ENTRY_PTR, ASM_DIR_TBL ) = 
14 


* 
: FUNCTIONAL DESCRIPTION: 


This routine determines if the PC to be decoded is a known assembler 
directive. If there is no assembler directive correlation table or the flag 
specifies not to check it, pron FALSE is returned. Otherwise, the table is 
searched to see if it contains the given PC. If not FALSE is returned. If 
the PC is within the table, then the offset into the OPINFO table to the 
directive is returned. Also, in this case, a pointer into the assembler 
directive table is returned. 


CALLING SEQUENCE: 
CHK_ASD_TBL( INS_PC, ASD_ENTRY_PTR, ASM_DIR_TBL ) 


POEQCACOIIMNMIYIVIVIVW) 


INPUTS: 
INS_PC = the PC to search the ASD table for 
ASD_ENTRY_PTR = Location to place ASD table pointer if found 
ASM_DIR_TBL - flag indicating whether or not to search ASD table, 
FALSE = do not search, TRUE = search 


IMPLICIT INPUTS: 
The ASD table must have been initialized. 
OUTPUTS: 
The pointer into the ASD table is set to 0 or the appropriate entry. 
IMPLICIT OUTPUTS: 
NONE. 
ROUTINE VALUE: 
The returned value is either: 


FALSE, if the PC is not in the table or there was no ASD table. 
otherwise, it is the ‘‘OPCODE’’ offset into the OPINFO table. 


SIDE EFFECTS: 
NONE. 


0909 09 09 08 08 SII NI SIN NIN NINO On 


—_ 
a  _ EEE Ss 
SOOSCOOCODDODO 
SSSLSNVLSSSLESRAS= 


NMroronr— 


ASM_DIR_TBL_: REF BLOCKL 


BYT ! Descriptor for assembler directive table 
ASD-ENTRY_PTR : REF VECTOR 


YTE), 
C,LONG); ' Pointer to set if PC is found in ASD table 
LOCAL 
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OPINFO_PTR : REF BLOCKC,BYTE], ! Local pointer into OPINFO table from ASD e 
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PATMA Instruction decoder bese -1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 36 PA 
v04-0 INS_CONTEXT = Determine operand type 12-8 08- 1 ope 99:45:99 DISKSVMSMASTER:CPATCH. SRCIPATMAC.B32:1> (10) | vc 
: 1208 2244 ASD_SIZE, ! fens ining length of ASD table to search ; 
3 } 44 ig ASD_PTR : REF BLOCKC,BYTE); ! Local pointer into ASD table for search : 
5 1211 4 144 ; 
2 1 \¢ 48 ' Check if an ASD table was built. If not, this means that there was : 
: : 1 4 no assembler directive in the instructions just deposited. : 
3; 1215 51 IF (.ASM_DIR_TBL EQL 0) : 
3: 1216 26 THEN 3 
3 1217 $3 RETURN(FALSE); ; 
; 1¢i8 2¢ ¥ if (CASD_PTR = .ASM_DIR_TBLCDSC$A_POINTER) EQL 0) : 
: 1338 $3 RETURN(FALSE); 3 
3; 1221 57 3 
s \ss¢ § 58 '+¢ : 
; lee 59 ! Loop, searching the assembler directive table, ASD, for the PC provided. : 
> 1224 2260 2! If it is located, then set the ASD_ENTRY_PTR pointer and return the opcode ; 
: \s¢? sco) ! offset into the OPINFO table. If Ehis routine rails out of the loop, then 3 
; \ss8 $50¢ ;_ the PC was not in the table and FALSE is returned. : 
3; 1228 2264 § ASD_SIZE = .ASM_DIR_TBLCDSC$W_LENGTH); . 
3 1229 2265 ASD-ENTRY_PTRLOJ = 0; ; 
: 1230 2266 WHICE .ASB_SIZE GEQ ASD$C_SIZE : 
3 1231 2267 DO ; 
: 1232 2268 BEGIN ; 
> 1233 2269 4 IF (.INS_PC EQL .ASD_PTRCASD$L_PCJ) | ; 
: 1234 2270 3 THEN : 
: 1235 2271 4 BEGIN 3 
: 1236 $576 4 '++ : 
3; 1237 2275 4 : PC was found in the ASD table. Set up return values. ; 
: 1238 2274 4&4 leo 
3; 1239 2275 4 ASD_ENTRY_PTRCOJ] = .ASD_PTR; 
3; 1240 2276 & OPINFO_PTR = .ASD_PTRCASD$L_OPINFO]; 
3 1241 2277 6 RETURN ( IF (.OPINFO PTRCOP_BR TYPE] EQL BR_BY) 
: 1st6 2278 6 THEN (SIZOPINFO1 = 
3 124 2279 6 ELSE IF (.OPINFO_PTRCOP_BR_TYPE] EQL BR_WD) 
3 1244 2280 6 THEN (SIZOPINFO1 =" 2) 
3 1245 2281 4 ELSE (SIZOPINFO1 = 1)); 
> 1246 2282 4 END 
3 1247 2283 3 ELSE 
: 1248 2284 4 BEGIN 
3; 1249 2285 4 ++ ‘ 
3 1$20 $56 ? PC is not equal to this entry. Update to next entry in table. 
: 1332 $584 4 ASD_SIZE = .ASD_SIZE = ASD$C_SIZE; 
3 125 2289 4 ASD-PTR = CHSPTR (.ASD_PTR, ASD$C._SIZE); 
: 1S3¢ 2290 3 END; 
: 1255 291 § END; 
3; 1256 344 
3: 1257 29 5 !¢+ — : 
; 1528 335 ' PC was not in the table. Return FALSE (indicating not found) . 
3; 1260 96 ; RETURN(FALSE); 
3: 1261 297 END; 
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PATMAC Instruction decoder bese -1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 37. 
v04-000 INS_CONTEXT = Determine operand type 12-88-1386 9:35:99 DISKSVMSMASTER: LPATCH. SRCJPATMAC.B32; 1 (10) | 
| 
| 
000C 00000 CHK_ASD_TBL: | 
»WORD Save R2,R3 3; 2187 
50 Oc AC 0 8008 MOVL ASM_DIR_TBL, RO : 2251 
49 1 BAR BEQL 5$ 3 
51 04 Ag 0 0000 MOVL 4(RO), ASD_PTR 3: 2254 
43 13 0000C BEQL 5$ 3 
53 60 3¢ Bpove MOVZWL (RO), ASD_SIZE 3 2264 
08 B¢ D4 00011 CLRL @ASD_ENTRY_PTR 3: 2265 
09 3 Di 00014 18: CMPL ASD_SIZE, #9 : 2266 
8 19 Beet BLSS 5$ 3 
61 04 AC D1 00019 CMPL INS_PC, (ASD_PTR) 3; 2269 
gf 12 00010 BNEQ 4$ ~ 3 
08 BC 1 DO QOOTF MOVL ASD_PTR, @ASD stare PTR 3; 2275 
52 04 Al 00 b00¢3 MOVL 4A SpD_PTR), OPINFO_PTR : 2276 
01 07 A2 04 04 ED 00027 CMPZV 4, On, FOPINFO. Br) : 2277 
06 12 00020 BNEQ 3 
50 0100 8F 3C¢ tH MOVZWL #256, RO : 2278 
04 it 4 RET 3 
02 07 A2 04 04 ED 00035 2$: CMPZV #4, #4, 7(OPINFO_PTR), #2 3; 2279 
06 12 00038 3$ 3 
50 0101 8F 3C 00030 MOVZWL #257, RO : 2280 
oe 944 RET F 
50 0102 8F 3C 00043 3$: MOVZWL #258, RO : 2281 
04 00048 RET 3; 2277 
53 09 C2 00049 4$: SUBL2 #9, ASD_SIZE 3: 2288 
51 09 cO 0004C ADDL2 #9, ASD_PTR 3 2289 
C3 11 OO04F BRB 3: 2266 
50 D4 00051 5$: CLAL RO : 2297 
04 00053 RET 3 
; Routine Size: 84 bytes, Routine Base: _PATSCODE + 0613 


; Elapsed Time: 01:59. 6 


; 4106 
; Lexenes/CPU-Nin: 21354 
: penery Ue 193 pages 
; Compi A vss “Complete 
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PATMAC Instruction decoder 1p~300- 138% 90:36:68 VAX-11 Bliss tH V4.0-742 Page 38. 
v04-000 INS_CONTEXT = Determine operand type 14-Sep-1984 12:52: Disk KSVMSMASTER: CPATCH.SRCJPATMAC.832;1 (11) | 
; 1565 $83 8 1 END | 
3; 1264 99 0 ELUDOM | 
1 
; PSECT SUMMARY 
: Name Bytes Attributes 
: PATSOWN 32 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC “AL IGN(2) 
;  ~PATSPLIT § NOVEC,NOWRT, RD ,NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 
3 =PATSCODE 163 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: ABS . 0 NOVEC,NOWRT,NORD *NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
3 Library Statistics 
Pee aes Gree oe ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 2 0 581 00:01.0 
a 
; COMMAND QUALIFIEFS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATMAC/OBJ=OBJ$:PATMAC MSRC$:PATMAC/UPDATE=(ENH$:PATMAC) 
Size: 1639 code + 64 data bytes 
| 
| 
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